10 PRINT"[147]":REM PASCAL'SCHES DREIECK
20 PRINT"PASCAL'SCHES DREIECK"
30 PRINT"********************"
40 DIMK(20):K(10)=1
50 PRINTTAB(20) 1
60 FORA=1TO9
70 FORR=10-ATO10+ASTEP2
80 K(R)=K(R-1)+K(R+1)
90 PRINTTAB(20-2*A)K(R);
100 NEXTR
110 PRINT:PRINT
120 NEXTA